home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / devel / tcl / tclx7_31.z / tclx7_31 / tcldev / tclX7.3a-p1 / tktests / tktests.tcl < prev   
Encoding:
Text File  |  1993-11-19  |  299 b   |  19 lines
  1. # tktests.tcl
  2. #
  3. # Script to run Tk tests with wishx  Should be from this directory
  4. # with an argument containing the Tk source path.
  5. #
  6.  
  7. if {[llength $argv] != 1} {
  8.     puts stderr "Path to the Tk source directory should be the only arg"
  9.     exit 1
  10. }
  11.  
  12. cd [lindex $argv 0]/tests
  13.  
  14. source all
  15.  
  16. exit 0
  17.  
  18.  
  19.